library(ExPosition)
data(dica.ad)

ad.data <- dica.ad$data
ad.design <- dica.ad$design

nrow(ad.data) < nrow(ad.design)
nrow(ad.data) > nrow(ad.design)
nrow(ad.data) <= nrow(ad.design)
nrow(ad.data) == nrow(ad.design)


if( nrow(ad.data) == nrow(ad.design) ){ #this is true
	
	#do this stuff.
	print("Inside the IF")
	contingency.table <- t(as.matrix(ad.design)) %*% as.matrix(ad.data)
	
}else{ #else means the if was FALSE

	#do that stuff.
	print("Inside the ELSE")
	print("NO I CAN'T DO THAT")

}